home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / clantr.z / clantr
Text File  |  1996-03-14  |  4KB  |  133 lines
  1.  
  2.  
  3.  
  4. CCCCLLLLAAAANNNNTTTTRRRR((((3333FFFF))))                                                          CCCCLLLLAAAANNNNTTTTRRRR((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      CLANTR - return the value of the one norm, or the Frobenius norm, or the
  10.      infinity norm, or the element of largest absolute value of a trapezoidal
  11.      or triangular matrix A
  12.  
  13. SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS
  14.      REAL FUNCTION CLANTR( NORM, UPLO, DIAG, M, N, A, LDA, WORK )
  15.  
  16.          CHARACTER DIAG, NORM, UPLO
  17.  
  18.          INTEGER   LDA, M, N
  19.  
  20.          REAL      WORK( * )
  21.  
  22.          COMPLEX   A( LDA, * )
  23.  
  24. PPPPUUUURRRRPPPPOOOOSSSSEEEE
  25.      CLANTR  returns the value of the one norm,  or the Frobenius norm, or the
  26.      infinity norm,  or the  element of  largest absolute value  of a
  27.      trapezoidal or triangular matrix A.
  28.  
  29.  
  30. DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
  31.      CLANTR returns the value
  32.  
  33.         CLANTR = ( max(abs(A(i,j))), NORM = 'M' or 'm'
  34.                  (
  35.                  ( norm1(A),         NORM = '1', 'O' or 'o'
  36.                  (
  37.                  ( normI(A),         NORM = 'I' or 'i'
  38.                  (
  39.                  ( normF(A),         NORM = 'F', 'f', 'E' or 'e'
  40.  
  41.      where  norm1  denotes the  one norm of a matrix (maximum column sum),
  42.      normI  denotes the  infinity norm  of a matrix  (maximum row sum) and
  43.      normF  denotes the  Frobenius norm of a matrix (square root of sum of
  44.      squares).  Note that  max(abs(A(i,j)))  is not a  matrix norm.
  45.  
  46.  
  47. AAAARRRRGGGGUUUUMMMMEEEENNNNTTTTSSSS
  48.      NORM    (input) CHARACTER*1
  49.              Specifies the value to be returned in CLANTR as described above.
  50.  
  51.      UPLO    (input) CHARACTER*1
  52.              Specifies whether the matrix A is upper or lower trapezoidal.  =
  53.              'U':  Upper trapezoidal
  54.              = 'L':  Lower trapezoidal Note that A is triangular instead of
  55.              trapezoidal if M = N.
  56.  
  57.      DIAG    (input) CHARACTER*1
  58.              Specifies whether or not the matrix A has unit diagonal.  = 'N':
  59.              Non-unit diagonal
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70. CCCCLLLLAAAANNNNTTTTRRRR((((3333FFFF))))                                                          CCCCLLLLAAAANNNNTTTTRRRR((((3333FFFF))))
  71.  
  72.  
  73.  
  74.              = 'U':  Unit diagonal
  75.  
  76.      M       (input) INTEGER
  77.              The number of rows of the matrix A.  M >= 0, and if UPLO = 'U', M
  78.              <= N.  When M = 0, CLANTR is set to zero.
  79.  
  80.      N       (input) INTEGER
  81.              The number of columns of the matrix A.  N >= 0, and if UPLO =
  82.              'L', N <= M.  When N = 0, CLANTR is set to zero.
  83.  
  84.      A       (input) COMPLEX array, dimension (LDA,N)
  85.              The trapezoidal matrix A (A is triangular if M = N).  If UPLO =
  86.              'U', the leading m by n upper trapezoidal part of the array A
  87.              contains the upper trapezoidal matrix, and the strictly lower
  88.              triangular part of A is not referenced.  If UPLO = 'L', the
  89.              leading m by n lower trapezoidal part of the array A contains the
  90.              lower trapezoidal matrix, and the strictly upper triangular part
  91.              of A is not referenced.  Note that when DIAG = 'U', the diagonal
  92.              elements of A are not referenced and are assumed to be one.
  93.  
  94.      LDA     (input) INTEGER
  95.              The leading dimension of the array A.  LDA >= max(M,1).
  96.  
  97.      WORK    (workspace) REAL array, dimension (LWORK),
  98.              where LWORK >= M when NORM = 'I'; otherwise, WORK is not
  99.              referenced.
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.                                                                         PPPPaaaaggggeeee 2222
  130.  
  131.  
  132.  
  133.